home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / misc / xes120.lha / XES / REXX / LoadStack.xdme < prev    next >
Text File  |  1994-11-09  |  279b  |  18 lines
  1. /* loadstack.xdme */
  2.  
  3. parse arg v file
  4.  
  5. file = strip(file)
  6. xcom = "purgevar" v
  7. xcom
  8. call open(input,file,"R")
  9. do forever
  10.     line = "(" || readln(input) || ")"
  11.     if eof(input) then leave
  12.     xcom = "set" v line "pushvar" v
  13.     xcom
  14. end
  15. xcom = "popvar" v
  16. xcom
  17. call close(input)
  18.